Untitled

library(dplyr)
library(sf)
library(terra)
library(raster)
library(DT)
library(ggplot2)
library(plotly)
library(leaflet)

casos <-
  st_read(
    "/vsicurl/https://marcelocubero.github.io/capas_proyecto/casos.geojson",
    quiet = TRUE
  )
casos <-
  casos %>%
  st_transform(4326)

fallecidos <- rast("/vsicurl/https://marcelocubero.github.io/capas_proyecto/fallecidos.tif")

fallecidos_rl <- raster::raster(fallecidos)


leaflet() %>%
  addTiles() %>%
  addRasterImage(
    fallecidos_rl, 
    opacity = 0.6
  ) %>%    
  addPolygons(
    data = casos,
    color = "black",
    fillColor = "transparent",
    stroke = TRUE,
    weight = 1.0,
  )

casos %>%
  st_drop_geometry() %>%
  select(canton, activos, positivos) %>%
datatable( casos, options = list(
  language = list(url = '//cdn.datatables.net/plug-ins/1.10.11/i18n/Spanish.json'),
  pageLength = 5
))